home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / CMPLTPAS / RVRSNAME.PAS < prev    next >
Pascal/Delphi Source File  |  1988-07-15  |  446b  |  18 lines
  1. {<<<< RvrsName >>>>}
  2. { From: COMPLETE TURBO PASCAL 5.0 by Jeff Duntemann  }
  3. { Scott, Foresman & Co. 1988      ISBN 0-673-38355-5 }
  4. { Described in section 15.3   --   Last mod 7/14/88  }
  5.  
  6. PROCEDURE RvrsName(VAR Name : String);
  7.  
  8. VAR 
  9.   TName : String;
  10.  
  11. BEGIN
  12.   IF Pos('*',Name) <> 0 THEN
  13.     BEGIN
  14.       TName := Copy(Name,1,(Pos('*',Name)-1));
  15.       Delete(Name,1,Pos('*',Name));
  16.       Name := Concat(Name,' ',TName)
  17.     END
  18. END;